
 
 L o a d   T h e r e m i n o _ H A L . e x e 
 
 L o a d   T h e r e m i n o _ S l o t V i e w e r . e x e 
 
 L o a d   T h e r e m i n o _ S l o t V i e w e r 2 . e x e 
 
 L o a d   T h e r e m i n o _ S l o t s T o M i d i \ T h e r e m i n o _ S l o t s T o M i d i . e x e 
 
 
 
 E n a b l e A l l 
 
 G o t o   L o o p 
 
 
 
 S t o p 
 
 
 
 V a r i a b l e   N u m e r i c   F i r s t M i d i S l o t   =   5 0 0 
 
 V a r i a b l e   N u m e r i c   N u m M i d i S l o t s   =   7 2   '   =   6   o t t a v e 
 
 
 
 V a r i a b l e   N u m e r i c   F i r s t S t e p p e r S l o t   =   1 0 1 
 
 V a r i a b l e   N u m e r i c   F i r s t E n a b l e S l o t   =   1 0 6 
 
 
 
 L a b e l   L o o p 
 
 	 v 1   =   0 
 
 	 F o r   v 2   =   0   T o   4 
 
 	 	 S c a n S l o t s 
 
 	 N e x t 
 
 G o t o   L o o p 
 
 
 
 L a b e l   S c a n S l o t s 
 
 	 F r e q u e n c y   =   1 e 7 
 
 	 F o r   v 1   =   v 1   +   1   T o   N u m M i d i S l o t s 
 
 	 	 I f   S l o t ( F i r s t M i d i S l o t   +   v 1 )   >   0 
 
 	 	 	 N o t e T o F r e q u e n c y ( v 1 ) 
 
 	 	 	 E x i t 
 
 	 	 E n d I f 
 
 	 N e x t 
 
 	 S l o t ( F i r s t S t e p p e r S l o t   +   v 2 )   =   F r e q u e n c y 
 
 R e t u r n 
 
 
 
 L a b e l   N o t e T o F r e q u e n c y 
 
 	 V a r i a b l e   N u m e r i c   N o t e 
 
 	 V a r i a b l e   N u m e r i c   O c t a v e 
 
 	 V a r i a b l e   N u m e r i c   F r e q u e n c y 
 
 	 O c t a v e   =   I n t ( ( N o t e   -   1 )   /   1 2 ) 
 
 	 N o t e   =   M o d ( N o t e   -   1 ,   1 2 )   +   1 
 
 	 S e l e c t   N o t e 
 
 	 	 C a s e   1       '   D O 
 
 	 	 	 F r e q u e n c y   =   2 6 1 . 6 3 
 
 	 	 C a s e   2       '   D O   # 
 
 	 	 	 F r e q u e n c y   =   2 7 7 . 1 8 
 
 	 	 C a s e   3       '   R E 
 
 	 	 	 F r e q u e n c y   =   2 9 3 . 6 6 
 
 	 	 C a s e   4       '   R E   # 
 
 	 	 	 F r e q u e n c y   =   3 1 1 . 1 3 
 
 	 	 C a s e   5       '   M I 
 
 	 	 	 F r e q u e n c y   =   3 2 9 . 6 3 
 
 	 	 C a s e   6       '   F A 
 
 	 	 	 F r e q u e n c y   =   3 4 9 . 2 3 
 
 	 	 C a s e   7       '   F A   # 
 
 	 	 	 F r e q u e n c y   =   3 6 9 . 9 9 
 
 	 	 C a s e   8       '   S O L 
 
 	 	 	 F r e q u e n c y   =   3 9 2 . 0 0 
 
 	 	 C a s e   9       '   S O L   # 
 
 	 	 	 F r e q u e n c y   =   4 1 5 . 3 0 
 
 	 	 C a s e   1 0     '   L A 
 
 	 	 	 F r e q u e n c y   =   4 4 0 
 
 	 	 C a s e   1 1     '   L A   # 
 
 	 	 	 F r e q u e n c y   =   4 6 6 . 1 6 
 
 	 	 C a s e   1 2     '   S I 
 
 	 	 	 F r e q u e n c y   =   4 9 3 . 8 8 
 
 	 E n d S e l e c t 
 
 	 F r e q u e n c y   =   F r e q u e n c y   *   P o w ( 2 ,   O c t a v e ) 
 
 R e t u r n 
 
 
 
 L a b e l   E v e n t S t o p 
 
 	 D i s a b l e A l l 
 
 E n d 
 
 
 
 L a b e l   E n a b l e A l l 
 
 	 F o r   v 1   =   F i r s t E n a b l e S l o t   T o   F i r s t E n a b l e S l o t   +   4 
 
 	 	 S l o t ( v 1 )   =   1 0 0 0 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 L a b e l   D i s a b l e A l l 
 
 	 F o r   v 1   =   F i r s t E n a b l e S l o t   T o   F i r s t E n a b l e S l o t   +   4 
 
 	 	 S l o t ( v 1 )   =   0 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 
 
 